home *** CD-ROM | disk | FTP | other *** search
/ Ultimedia 1 / Ultimedia 1.iso / tools / soundtools / playsid / preview.rexx < prev    next >
OS/2 REXX Batch file  |  1993-04-16  |  616b  |  36 lines
  1. /*
  2.  * PlaySID: Preview example:
  3.  *
  4.  * rx preview "filename"
  5.  *
  6.  *         or
  7.  *
  8.  * preview.rexx "filename"
  9.  *
  10.  */
  11.  
  12. if(~show('l', 'rexxsupport.library'))then do
  13.    if(~addlib( 'rexxsupport.library', 0, -30, 0))then do
  14.       say "Could not open ARexx support library."
  15.       exit 10
  16.    end
  17. end
  18.  
  19. parse arg name
  20.  
  21. address command "run SID:PlaySID"
  22. say "Loading"
  23. if SID_Load(name) then do
  24.    numtunes =  SID_NumTunes()
  25.    say "Found" numtunes "tunes"
  26.    do tune = 1 to numtunes
  27.       say "Playing tune" tune
  28.       SID_SetTune(tune)
  29.       SID_Play()
  30.       Delay(5 * 50)
  31.    end
  32.    say "Stopped"
  33.    SID_Stop()
  34. end
  35. SID_Quit()
  36.